home *** CD-ROM | disk | FTP | other *** search
/ Ahoy 1985 August / Ahoy_Magazine_85-08_1985_Double_L.d64 / menu c-64 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  83 lines
  1. 3 l$="":restore
  2. 5 poke53280,6:poke53265,peek(53265)and239
  3. 10 fori=1to22:reada$:next:x=60:y=57:cl=1:sc=53281
  4. 15 fori=12288to12350:readsp:pokei,sp:next
  5. 17 fori=12352to12414:readsp:pokei,sp:next
  6. 19 fori=12416to12478:readsp:pokei,sp:next
  7. 21 fori=12480to12542:readsp:pokei,sp:next
  8. 23 fori=12544to12606:readsp:pokei,sp:next
  9. 25 fori=12608to12670:readsp:pokei,sp:next
  10. 27 fori=12672to12734:readsp:pokei,sp:next
  11. 29 fori=12736to12798:readsp:pokei,sp:next
  12. 35 m=.:v=53248:fori=2040to2047:m=m+1:pokei,191+m:next
  13. 40 fori=39to46:cl=cl+1:pokev+i,cl:next
  14. 50 fori=0to6step2:x=x+25:pokev+i,x:next:fori=1to13step2:pokev+i,y:next
  15. 60 pokev+8,195:pokev+10,215:pokev+12,240
  16. 70 pokev+16,128:pokev+14,5:pokev+15,y
  17. 100 print"[147]":poke sc,1:pokev+21,255:ta=10
  18. 110 poke53265,peek(53265)or16
  19. 145 printleft$(l$,5)"   * * *   d i r e c t o r y   * * *    ":restore
  20. 150 a=a+1:b=b+1:readpr$:ifa>9thenta=9
  21. 160 printleft$(l$,b+6)tab(ta)""a"-"pr$
  22. 165 if b=11 then 175
  23. 170 goto 150
  24. 175 if a>=22 then restore:a=0
  25. 180 print left$(l$,22)"            double l software           "
  26. 190 print left$(l$,24)tab(7)"(c) ion international inc":poke198,0:an$=""
  27. 200 print left$(l$,20)tab(8)"press f1[146] or choose no. ";
  28. 210 gettm$:iftm$=chr$(13)andan$=""then 210
  29. 211 iftm$=chr$(20)thenprint"[157]    ":goto190
  30. 215 iftm$="[133]"thengosub300:ta=10:b=.:goto150
  31. 218 iftm$=chr$(13)andan$<>" "then 225
  32. 220 an$=an$+tm$:printan$;"_";
  33. 221 t=peek(v+39):pokev+39,peek(v+40):pokev+40,peek(v+41):pokev+41,peek(v+42)
  34. 222 pokev+42,peek(v+43):pokev+43,peek(v+44):pokev+44,peek(v+45)
  35. 223 pokev+45,peek(v+46):pokev+46,t:ford=1to30:next
  36. 224 goto200
  37. 225 an=val(an$):ifan<1oran>22thenprint"[157]     ":goto190
  38. 226 an=val(an$):restore:for ch=1 to an:read pr$:next ch
  39. 230 pokev+21,0:print "[147]":poke 53280,0:poke 53281,0
  40. 235 printleft$(l$,15)tab(10)"[159]loading "pr$"[144]"
  41. 240 print "load";chr$(34);pr$;chr$(34);",8"
  42. 250 print "run":print "[145][145][145][145][145][145][145][145][145]"
  43. 260 poke 631,13:poke 632,13:poke 198,2:end
  44. 300 forli=6to18
  45. 310 printleft$(l$,li)"                                    ":next:return
  46. 500 data formatter,selectachrome,dsntgrtor boot,sound-a-rama,64 windows
  47. 510 data fidgits,gators n snakes,64 bug rep,vic bug rep,flankspeed
  48. 520 data f-speed over,screen dump util,simple gunshot,helicopter blade
  49. 530 data sawing wood,complex gunshot,space gunshot,seashore,boink
  50. 540 data needles,birthday calc,birthday sim
  51. 599 rem * a *
  52. 600 data 0,0,0,0,0,0,0,255,128,3,255,224,7,255,240,15,255,248,15,193,248
  53. 610 data 15,128,248,15,128,248,15,128,248,15,128,248,15,255,248,15,255,248
  54. 620 data 15,255,248,15,255,248,15,128,248,15,128,248,15,128,248,15,128,248
  55. 622 data 0,0,0,0,0,0
  56. 625 rem * u *
  57. 630 data 0,0,0,0,0,0,15,128,248,15,128,248,15,128,248,15,128,248,15,128,248
  58. 640 data 15,128,248,15,128,248,15,128,248,15,128,248,15,128,248,15,128,248,15
  59. 650 data128,248,15,193,248,15,255,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0
  60. 655 rem * g *
  61. 660 data 0,0,0,0,0,0,0,255,128,3,255,224,7,255,240,15,255,240,15,193,248,15,128
  62. 670 data 248,15,128,0,15,128,0,15,128,0,15,135,248,15,135,248,15,128,248,15
  63. 680 data 193,248,15,255,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0
  64. 685 rem * . *
  65. 690 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  66. 700 data 0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,128,0,3,128,0,3,128,0,0,0,0,0,0,0
  67. 715 rem * 1 *
  68. 720 data 0,0,0,0,0,0,0,62,0,0,126,0,0,254,0,1,254,0,0,62,0,0,62,0,0,62,0,0,62,0
  69. 730 data 0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,0,62,0,1,255,192,1,255,192,1,255
  70. 740 data 192,0,0,0,0,0,0
  71. 745 rem * 9 *
  72. 750 data 0,0,0,0,0,0,0,255,0,3,255,192,7,255,240,15,195,240,15,129,248,15,129
  73. 760 data 248,7,195,248,7,255,248,3,255,248,0,255,248,0,0,248,0,0,248,15,128
  74. 770 data 248,15,193,240,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0
  75. 775 rem * 8 *
  76. 780 data 0,0,0,0,0,0,0,254,0,7,255,192,15,255,224,31,131,240,31,1,240,31,1,240
  77. 790 data15,131,224,7,255,192,3,255,128,7,255,192,15,131,224,31,1,240,31,1,240
  78. 800 data 31,131,240,15,255,224,7,255,192,1,255,0,0,0,0,0,0,0
  79. 805 rem * 5 *
  80. 810 data 0,0,0,0,0,0,15,255,240,15,255,240,15,255,240,15,255,240,15,128,0,15
  81. 820 data 128,0,15,128,0,15,255,128,15,255,224,15,255,240,0,1,248,0,0,248,15,128
  82. 830 data 248,15,193,248,7,255,240,3,255,224,0,255,128,0,0,0,0,0,0
  83.